Option Strict On
Option Explicit On
Imports System

Public Class frmGeolAge
    Inherits System.Windows.Forms.Form
    Public Shared intDateType As Integer   'tells what kind of date structure is needed
    '1 = single Geologic Age; 2 = range of Geologic Ages
    Public Shared begGeol As New GeolAge      'also used for single Geologic Age
    Public Shared endGeol As New GeolAge
    Friend WithEvents button_example As System.Windows.Forms.Button
    Public Shared bChange As Boolean = False  'tells calling routine whether return via OK [true] or Cancel [false]

#Region " Windows Form Designer generated code "

    Public Sub New(ByVal inDate1 As GeolAge)
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        intDateType = 1
        begGeol = inDate1
        'Add any initialization after the InitializeComponent() call

    End Sub

    Public Sub New(ByVal inDate1 As GeolAge, ByVal inDate2 As GeolAge)
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        intDateType = 2
        begGeol = inDate1
        endGeol = inDate2

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents cboxScale As System.Windows.Forms.ComboBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents txtEst As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
    Friend WithEvents txtUncert As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents txtExplain As System.Windows.Forms.TextBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents lboxGCite As System.Windows.Forms.ListBox
    Friend WithEvents btnAdd As System.Windows.Forms.Button
    Friend WithEvents btnEdit As System.Windows.Forms.Button
    Friend WithEvents btnDelete As System.Windows.Forms.Button
    Friend WithEvents btnOK As System.Windows.Forms.Button
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents btnCancel As System.Windows.Forms.Button
    Friend WithEvents Panel3 As System.Windows.Forms.Panel
    Friend WithEvents btnCancel2 As System.Windows.Forms.Button
    Friend WithEvents btnOK2 As System.Windows.Forms.Button
    Friend WithEvents Panel4 As System.Windows.Forms.Panel
    Friend WithEvents btnDelete2 As System.Windows.Forms.Button
    Friend WithEvents btnEdit2 As System.Windows.Forms.Button
    Friend WithEvents btnAdd2 As System.Windows.Forms.Button
    Friend WithEvents lboxGCite2 As System.Windows.Forms.ListBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents txtExplain2 As System.Windows.Forms.TextBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents txtUncert2 As System.Windows.Forms.TextBox
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents txtEst2 As System.Windows.Forms.TextBox
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents cboxScale2 As System.Windows.Forms.ComboBox
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGeolAge))
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.btnDelete = New System.Windows.Forms.Button
        Me.btnEdit = New System.Windows.Forms.Button
        Me.btnAdd = New System.Windows.Forms.Button
        Me.lboxGCite = New System.Windows.Forms.ListBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.txtExplain = New System.Windows.Forms.TextBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.txtUncert = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.txtEst = New System.Windows.Forms.TextBox
        Me.Label3 = New System.Windows.Forms.Label
        Me.cboxScale = New System.Windows.Forms.ComboBox
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.lboxGCite2 = New System.Windows.Forms.ListBox
        Me.txtExplain2 = New System.Windows.Forms.TextBox
        Me.txtUncert2 = New System.Windows.Forms.TextBox
        Me.txtEst2 = New System.Windows.Forms.TextBox
        Me.cboxScale2 = New System.Windows.Forms.ComboBox
        Me.btnOK = New System.Windows.Forms.Button
        Me.Panel2 = New System.Windows.Forms.Panel
        Me.btnCancel = New System.Windows.Forms.Button
        Me.Panel3 = New System.Windows.Forms.Panel
        Me.btnCancel2 = New System.Windows.Forms.Button
        Me.btnOK2 = New System.Windows.Forms.Button
        Me.Panel4 = New System.Windows.Forms.Panel
        Me.btnDelete2 = New System.Windows.Forms.Button
        Me.btnEdit2 = New System.Windows.Forms.Button
        Me.btnAdd2 = New System.Windows.Forms.Button
        Me.Label7 = New System.Windows.Forms.Label
        Me.Label8 = New System.Windows.Forms.Label
        Me.Label9 = New System.Windows.Forms.Label
        Me.Label10 = New System.Windows.Forms.Label
        Me.Label11 = New System.Windows.Forms.Label
        Me.Label12 = New System.Windows.Forms.Label
        Me.button_example = New System.Windows.Forms.Button
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(0, 0)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(393, 23)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Beginning Geologic Age"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.Label1.Visible = False
        '
        'Label2
        '
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(12, 29)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(170, 26)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "Geologic Time Scale"
        Me.ToolTip1.SetToolTip(Me.Label2, "Choose from list or enter relevant scale")
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.btnDelete)
        Me.Panel1.Controls.Add(Me.btnEdit)
        Me.Panel1.Controls.Add(Me.btnAdd)
        Me.Panel1.Controls.Add(Me.lboxGCite)
        Me.Panel1.Controls.Add(Me.Label6)
        Me.Panel1.Controls.Add(Me.txtExplain)
        Me.Panel1.Controls.Add(Me.Label5)
        Me.Panel1.Controls.Add(Me.txtUncert)
        Me.Panel1.Controls.Add(Me.Label4)
        Me.Panel1.Controls.Add(Me.txtEst)
        Me.Panel1.Controls.Add(Me.Label3)
        Me.Panel1.Controls.Add(Me.cboxScale)
        Me.Panel1.Controls.Add(Me.Label1)
        Me.Panel1.Controls.Add(Me.Label2)
        Me.Panel1.Location = New System.Drawing.Point(0, 41)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(393, 432)
        Me.Panel1.TabIndex = 2
        '
        'btnDelete
        '
        Me.btnDelete.Enabled = False
        Me.btnDelete.Image = CType(resources.GetObject("btnDelete.Image"), System.Drawing.Image)
        Me.btnDelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnDelete.Location = New System.Drawing.Point(304, 405)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.Size = New System.Drawing.Size(75, 23)
        Me.btnDelete.TabIndex = 13
        Me.btnDelete.Text = "Delete"
        '
        'btnEdit
        '
        Me.btnEdit.Enabled = False
        Me.btnEdit.Image = CType(resources.GetObject("btnEdit.Image"), System.Drawing.Image)
        Me.btnEdit.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnEdit.Location = New System.Drawing.Point(223, 405)
        Me.btnEdit.Name = "btnEdit"
        Me.btnEdit.Size = New System.Drawing.Size(75, 23)
        Me.btnEdit.TabIndex = 12
        Me.btnEdit.Text = "Edit"
        '
        'btnAdd
        '
        Me.btnAdd.Image = CType(resources.GetObject("btnAdd.Image"), System.Drawing.Image)
        Me.btnAdd.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnAdd.Location = New System.Drawing.Point(142, 405)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(75, 23)
        Me.btnAdd.TabIndex = 11
        Me.btnAdd.Text = "Add"
        '
        'lboxGCite
        '
        Me.lboxGCite.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.lboxGCite.Location = New System.Drawing.Point(109, 360)
        Me.lboxGCite.Name = "lboxGCite"
        Me.lboxGCite.Size = New System.Drawing.Size(270, 39)
        Me.lboxGCite.TabIndex = 10
        Me.ToolTip1.SetToolTip(Me.lboxGCite, "Citations providing detailed info about any part of Geologic Age")
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(12, 357)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(100, 32)
        Me.Label6.TabIndex = 9
        Me.Label6.Text = "Geologic Citation (optional)"
        Me.ToolTip1.SetToolTip(Me.Label6, "Citations providing detailed info about any part of Geologic Age")
        '
        'txtExplain
        '
        Me.txtExplain.Location = New System.Drawing.Point(15, 279)
        Me.txtExplain.Multiline = True
        Me.txtExplain.Name = "txtExplain"
        Me.txtExplain.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtExplain.Size = New System.Drawing.Size(364, 75)
        Me.txtExplain.TabIndex = 8
        Me.ToolTip1.SetToolTip(Me.txtExplain, "Name and/or description of method used to calculate Age Estimate")
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.Location = New System.Drawing.Point(12, 260)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(200, 25)
        Me.Label5.TabIndex = 7
        Me.Label5.Text = "Geologic Age Explanation"
        Me.ToolTip1.SetToolTip(Me.Label5, "Name and/or description of method used to calculate Age Estimate")
        '
        'txtUncert
        '
        Me.txtUncert.Location = New System.Drawing.Point(15, 182)
        Me.txtUncert.Multiline = True
        Me.txtUncert.Name = "txtUncert"
        Me.txtUncert.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtUncert.Size = New System.Drawing.Size(364, 75)
        Me.txtUncert.TabIndex = 6
        Me.ToolTip1.SetToolTip(Me.txtUncert, "Include units of measure, what the error estimate represents, and how it was calc" & _
                "ulated")
        '
        'Label4
        '
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.Location = New System.Drawing.Point(12, 158)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(191, 21)
        Me.Label4.TabIndex = 5
        Me.Label4.Text = "Geologic Age Uncertainty"
        Me.ToolTip1.SetToolTip(Me.Label4, "Include units of measure, what the error estimate represents, and how it was calc" & _
                "ulated")
        '
        'txtEst
        '
        Me.txtEst.Location = New System.Drawing.Point(15, 80)
        Me.txtEst.Multiline = True
        Me.txtEst.Name = "txtEst"
        Me.txtEst.Size = New System.Drawing.Size(364, 75)
        Me.txtEst.TabIndex = 4
        Me.ToolTip1.SetToolTip(Me.txtEst, "In units of Time Scale entered above")
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.Location = New System.Drawing.Point(12, 55)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(170, 24)
        Me.Label3.TabIndex = 3
        Me.Label3.Text = "Geologic Age Estimate"
        Me.ToolTip1.SetToolTip(Me.Label3, "In units of Time Scale entered above")
        '
        'cboxScale
        '
        Me.cboxScale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboxScale.Items.AddRange(New Object() {"Absolute", "Geomagnetic Polarity Time Scale", "International Geological Time Scale", "Oxygen-Isotope"})
        Me.cboxScale.Location = New System.Drawing.Point(155, 28)
        Me.cboxScale.Name = "cboxScale"
        Me.cboxScale.Size = New System.Drawing.Size(224, 21)
        Me.cboxScale.TabIndex = 2
        Me.ToolTip1.SetToolTip(Me.cboxScale, "Choose from list or enter relevant scale")
        '
        'ToolTip1
        '
        Me.ToolTip1.IsBalloon = True
        Me.ToolTip1.ShowAlways = True
        Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info
        '
        'lboxGCite2
        '
        Me.lboxGCite2.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.lboxGCite2.Location = New System.Drawing.Point(111, 358)
        Me.lboxGCite2.Name = "lboxGCite2"
        Me.lboxGCite2.Size = New System.Drawing.Size(270, 39)
        Me.lboxGCite2.TabIndex = 10
        Me.ToolTip1.SetToolTip(Me.lboxGCite2, "Citations providing detailed info about any part of Geologic Age")
        '
        'txtExplain2
        '
        Me.txtExplain2.Location = New System.Drawing.Point(17, 277)
        Me.txtExplain2.Multiline = True
        Me.txtExplain2.Name = "txtExplain2"
        Me.txtExplain2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtExplain2.Size = New System.Drawing.Size(364, 75)
        Me.txtExplain2.TabIndex = 8
        Me.ToolTip1.SetToolTip(Me.txtExplain2, "Name and/or description of method used to calculate Age Estimate")
        '
        'txtUncert2
        '
        Me.txtUncert2.Location = New System.Drawing.Point(17, 180)
        Me.txtUncert2.Multiline = True
        Me.txtUncert2.Name = "txtUncert2"
        Me.txtUncert2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtUncert2.Size = New System.Drawing.Size(364, 75)
        Me.txtUncert2.TabIndex = 6
        Me.ToolTip1.SetToolTip(Me.txtUncert2, "Include units of measure, what the error estimate represents, and how it was calc" & _
                "ulated")
        '
        'txtEst2
        '
        Me.txtEst2.Location = New System.Drawing.Point(17, 78)
        Me.txtEst2.Multiline = True
        Me.txtEst2.Name = "txtEst2"
        Me.txtEst2.Size = New System.Drawing.Size(364, 75)
        Me.txtEst2.TabIndex = 4
        Me.ToolTip1.SetToolTip(Me.txtEst2, "In units of Time Scale entered above")
        '
        'cboxScale2
        '
        Me.cboxScale2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboxScale2.Items.AddRange(New Object() {"Absolute", "Geomagnetic Polarity Time Scale", "International Geological Time Scale", "Oxygen-Isotope"})
        Me.cboxScale2.Location = New System.Drawing.Point(155, 26)
        Me.cboxScale2.Name = "cboxScale2"
        Me.cboxScale2.Size = New System.Drawing.Size(224, 21)
        Me.cboxScale2.TabIndex = 2
        Me.ToolTip1.SetToolTip(Me.cboxScale2, "Choose from list or enter relevant scale")
        '
        'btnOK
        '
        Me.btnOK.Enabled = False
        Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnOK.Image = CType(resources.GetObject("btnOK.Image"), System.Drawing.Image)
        Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnOK.Location = New System.Drawing.Point(14, 3)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(75, 23)
        Me.btnOK.TabIndex = 14
        Me.btnOK.Text = "OK"
        Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Panel2
        '
        Me.Panel2.Controls.Add(Me.btnCancel)
        Me.Panel2.Controls.Add(Me.btnOK)
        Me.Panel2.Location = New System.Drawing.Point(209, 473)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(184, 40)
        Me.Panel2.TabIndex = 15
        '
        'btnCancel
        '
        Me.btnCancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnCancel.Image = CType(resources.GetObject("btnCancel.Image"), System.Drawing.Image)
        Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnCancel.Location = New System.Drawing.Point(95, 3)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(75, 23)
        Me.btnCancel.TabIndex = 15
        Me.btnCancel.Text = "Cancel"
        Me.btnCancel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Panel3
        '
        Me.Panel3.Controls.Add(Me.btnCancel2)
        Me.Panel3.Controls.Add(Me.btnOK2)
        Me.Panel3.Location = New System.Drawing.Point(599, 473)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(200, 40)
        Me.Panel3.TabIndex = 18
        Me.Panel3.Visible = False
        '
        'btnCancel2
        '
        Me.btnCancel2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnCancel2.Image = CType(resources.GetObject("btnCancel2.Image"), System.Drawing.Image)
        Me.btnCancel2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnCancel2.Location = New System.Drawing.Point(106, 3)
        Me.btnCancel2.Name = "btnCancel2"
        Me.btnCancel2.Size = New System.Drawing.Size(75, 23)
        Me.btnCancel2.TabIndex = 15
        Me.btnCancel2.Text = "Cancel"
        Me.btnCancel2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'btnOK2
        '
        Me.btnOK2.Enabled = False
        Me.btnOK2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnOK2.Image = CType(resources.GetObject("btnOK2.Image"), System.Drawing.Image)
        Me.btnOK2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnOK2.Location = New System.Drawing.Point(25, 3)
        Me.btnOK2.Name = "btnOK2"
        Me.btnOK2.Size = New System.Drawing.Size(75, 23)
        Me.btnOK2.TabIndex = 14
        Me.btnOK2.Text = "OK"
        Me.btnOK2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Panel4
        '
        Me.Panel4.Controls.Add(Me.btnDelete2)
        Me.Panel4.Controls.Add(Me.btnEdit2)
        Me.Panel4.Controls.Add(Me.btnAdd2)
        Me.Panel4.Controls.Add(Me.lboxGCite2)
        Me.Panel4.Controls.Add(Me.Label7)
        Me.Panel4.Controls.Add(Me.txtExplain2)
        Me.Panel4.Controls.Add(Me.Label8)
        Me.Panel4.Controls.Add(Me.txtUncert2)
        Me.Panel4.Controls.Add(Me.Label9)
        Me.Panel4.Controls.Add(Me.txtEst2)
        Me.Panel4.Controls.Add(Me.Label10)
        Me.Panel4.Controls.Add(Me.cboxScale2)
        Me.Panel4.Controls.Add(Me.Label11)
        Me.Panel4.Controls.Add(Me.Label12)
        Me.Panel4.Location = New System.Drawing.Point(399, 41)
        Me.Panel4.Name = "Panel4"
        Me.Panel4.Size = New System.Drawing.Size(400, 430)
        Me.Panel4.TabIndex = 17
        Me.Panel4.Visible = False
        '
        'btnDelete2
        '
        Me.btnDelete2.Enabled = False
        Me.btnDelete2.Image = CType(resources.GetObject("btnDelete2.Image"), System.Drawing.Image)
        Me.btnDelete2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnDelete2.Location = New System.Drawing.Point(306, 403)
        Me.btnDelete2.Name = "btnDelete2"
        Me.btnDelete2.Size = New System.Drawing.Size(75, 23)
        Me.btnDelete2.TabIndex = 13
        Me.btnDelete2.Text = "Delete"
        '
        'btnEdit2
        '
        Me.btnEdit2.Enabled = False
        Me.btnEdit2.Image = CType(resources.GetObject("btnEdit2.Image"), System.Drawing.Image)
        Me.btnEdit2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnEdit2.Location = New System.Drawing.Point(225, 403)
        Me.btnEdit2.Name = "btnEdit2"
        Me.btnEdit2.Size = New System.Drawing.Size(75, 23)
        Me.btnEdit2.TabIndex = 12
        Me.btnEdit2.Text = "Edit"
        '
        'btnAdd2
        '
        Me.btnAdd2.Image = CType(resources.GetObject("btnAdd2.Image"), System.Drawing.Image)
        Me.btnAdd2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnAdd2.Location = New System.Drawing.Point(144, 403)
        Me.btnAdd2.Name = "btnAdd2"
        Me.btnAdd2.Size = New System.Drawing.Size(75, 23)
        Me.btnAdd2.TabIndex = 11
        Me.btnAdd2.Text = "Add"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(14, 355)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(100, 32)
        Me.Label7.TabIndex = 9
        Me.Label7.Text = "Geologic Citation (optional)"
        Me.ToolTip1.SetToolTip(Me.Label7, "Citations providing detailed info about any part of Geologic Age")
        '
        'Label8
        '
        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.Location = New System.Drawing.Point(14, 258)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(155, 25)
        Me.Label8.TabIndex = 7
        Me.Label8.Text = "Geologic Age Explanation"
        Me.ToolTip1.SetToolTip(Me.Label8, "Name and/or description of method used to calculate Age Estimate")
        '
        'Label9
        '
        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label9.Location = New System.Drawing.Point(14, 156)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(155, 21)
        Me.Label9.TabIndex = 5
        Me.Label9.Text = "Geologic Age Uncertainty"
        Me.ToolTip1.SetToolTip(Me.Label9, "Include units of measure, what the error estimate represents, and how it was calc" & _
                "ulated")
        '
        'Label10
        '
        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label10.Location = New System.Drawing.Point(14, 53)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(155, 24)
        Me.Label10.TabIndex = 3
        Me.Label10.Text = "Geologic Age Estimate"
        Me.ToolTip1.SetToolTip(Me.Label10, "In units of Time Scale entered above")
        '
        'Label11
        '
        Me.Label11.Dock = System.Windows.Forms.DockStyle.Top
        Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label11.Location = New System.Drawing.Point(0, 0)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(400, 23)
        Me.Label11.TabIndex = 0
        Me.Label11.Text = "Ending Geologic Age"
        Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Label12
        '
        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label12.Location = New System.Drawing.Point(14, 27)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(155, 18)
        Me.Label12.TabIndex = 1
        Me.Label12.Text = "Geologic Time Scale"
        Me.ToolTip1.SetToolTip(Me.Label12, "Choose from list or enter relevant scale")
        '
        'button_example
        '
        Me.button_example.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.button_example.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.button_example.Image = Global.MetaDoc.My.Resources.Resources.app_help_48x48
        Me.button_example.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.button_example.Location = New System.Drawing.Point(783, 12)
        Me.button_example.Name = "button_example"
        Me.button_example.Size = New System.Drawing.Size(110, 48)
        Me.button_example.TabIndex = 21
        Me.button_example.Text = "EXAMPLE"
        Me.button_example.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.button_example.UseVisualStyleBackColor = True
        '
        'frmGeolAge
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.AutoScroll = True
        Me.ClientSize = New System.Drawing.Size(905, 518)
        Me.ControlBox = False
        Me.Controls.Add(Me.button_example)
        Me.Controls.Add(Me.Panel4)
        Me.Controls.Add(Me.Panel3)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Panel1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmGeolAge"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Geologic Age"
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
        Me.Panel2.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.Panel4.ResumeLayout(False)
        Me.Panel4.PerformLayout()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmGeolAge_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tmpCite As New CiteInfo
        Dim iCount As Integer = 0
        Dim iLoop As Integer = 0
        Dim strCite As String = ""

        If (intDateType = 1) Then  'set up form based on whether 1 Geol Age or 2 Geol Ages to input
            Me.Width = 428
        ElseIf (intDateType = 2) Then
            Me.Width = 848
            Label1.Visible = True
            Panel2.Visible = False
            Panel3.Visible = True
            Panel4.Visible = True
        Else
            MessageBox.Show("Unexpected error. Contact author!", "Geologic Age load error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

        'set up Geologic Time Scale
        cboxScale.SelectedItem = begGeol.TimeScale
        iCount = cboxScale.SelectedIndex
        If (iCount = -1 And Len(begGeol.TimeScale) > 0) Then
            cboxScale.Items.Add(begGeol.TimeScale)
            cboxScale.SelectedItem = begGeol.TimeScale
        End If

        'set up Age Estimate, Uncertainty, and Explanation
        txtEst.Text = begGeol.Estim
        txtUncert.Text = begGeol.Uncert
        txtExplain.Text = begGeol.Explain

        'set up Geologic Citations
        iCount = begGeol.GCiteCount
        For iLoop = 1 To iCount
            tmpCite = begGeol.GCiteFetch(iLoop)
            strCite = Microsoft.VisualBasic.Left(tmpCite.Author, 25) & "   " & Microsoft.VisualBasic.Left(tmpCite.Title, 25)
            lboxGCite.Items.Add(strCite)
        Next


        If (intDateType = 2) Then  'process endpoint of range
            'set up Geologic Time Scale
            cboxScale2.SelectedItem = endGeol.TimeScale
            iCount = cboxScale2.SelectedIndex
            If (iCount = -1 And Len(endGeol.TimeScale) > 0) Then
                cboxScale2.Items.Add(endGeol.TimeScale)
                cboxScale2.SelectedItem = endGeol.TimeScale
            End If

            'set up Age Estimate, Uncertainty, and Explanation
            txtEst2.Text = endGeol.Estim
            txtUncert2.Text = endGeol.Uncert
            txtExplain2.Text = endGeol.Explain

            'set up Geologic Citations
            iCount = begGeol.GCiteCount
            For iLoop = 1 To iCount
                tmpCite = endGeol.GCiteFetch(iLoop)
                strCite = Microsoft.VisualBasic.Left(tmpCite.Author, 25) & "   " & Microsoft.VisualBasic.Left(tmpCite.Title, 25)
                lboxGCite2.Items.Add(strCite)
            Next
        End If
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim tmpCite As New CiteInfo
        Dim tmpCiteUp As Boolean = False
        Dim tmpLWC As New CiteInfo
        Dim tmpLWCb As Boolean = False
        Dim tmpLWCup As Boolean = False
        Dim strCite As String = ""
        Dim iCount As Integer = 0
        Dim iTime As Integer = frmMetaMain.intTimeStyle

        Dim frmGCite As New frmCiteInfo(tmpCite, tmpLWC, tmpLWCb, iTime)
        frmGCite.ShowDialog()

        If (frmGCite.getUpdated() = False) Then  'no citation was provided so no updating
            Return
        End If
        tmpCite = frmGCite.getNewCite()
        tmpLWCb = frmGCite.getLWC()
        If (tmpLWCb = True) Then
            tmpLWC = frmGCite.getNewLWC()
        End If

        strCite = Microsoft.VisualBasic.Left(tmpCite.Author, 25) & "   " & Microsoft.VisualBasic.Left(tmpCite.Title, 25)
        lboxGCite.Items.Add(strCite)

        begGeol.GCiteAdd()  'add a new set of citations to the collection
        iCount = begGeol.GCiteCount  'update the new set with the information just entered
        begGeol.GCiteUpdate(tmpCite, iCount)
        begGeol.GLWCUpdate(tmpLWCb, tmpLWC, iCount)

    End Sub

    Private Sub btnAdd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd2.Click
        Dim tmpCite As New CiteInfo
        Dim tmpCiteUp As Boolean = False
        Dim tmpLWC As New CiteInfo
        Dim tmpLWCb As Boolean = False
        Dim tmpLWCup As Boolean = False
        Dim strCite As String = ""
        Dim iCount As Integer = 0
        Dim iTime As Integer = frmMetaMain.intTimeStyle

        Dim frmGCite As New frmCiteInfo(tmpCite, tmpLWC, tmpLWCb, iTime)
        frmGCite.ShowDialog()

        If (frmGCite.getUpdated() = False) Then  'no citation was provided so no updating
            Return
        End If
        tmpCite = frmGCite.getNewCite()
        tmpLWCb = frmGCite.getLWC()
        If (tmpLWCb = True) Then
            tmpLWC = frmGCite.getNewLWC()
        End If

        strCite = tmpCite.Author & "  " & tmpCite.Title
        lboxGCite2.Items.Add(strCite)

        endGeol.GCiteAdd()  'add a new set of citations to the collection
        iCount = endGeol.GCiteCount  'update the new set with the information just entered
        endGeol.GCiteUpdate(tmpCite, iCount)
        endGeol.GLWCUpdate(tmpLWCb, tmpLWC, iCount)

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        Dim tmpCite As New CiteInfo  'primary citation
        Dim tmpCiteUp As Boolean = False  'indicates whether primary citation has been edited
        Dim tmpLWC As New CiteInfo        'Larger Work Citation
        Dim tmpLWCb As Boolean = False    'indicates whether LWC is present
        Dim tmpLWCup As Boolean = False   'indicates whether LWC has been edited
        Dim strCite As String = ""
        Dim iCount As Integer = 0
        Dim iToEdit As Integer = 0
        Dim strError As String = ""
        Dim iTime As Integer = frmMetaMain.intTimeStyle

        iToEdit = lboxGCite.SelectedIndex
        iCount = begGeol.GCiteCount

        If (iCount = 0) Then 'Edit button pressed by mistake -- no entries to edit
            strError = "There are no Geologic Citations to edit."
            MessageBox.Show(strError, "Selection error", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If

        If (iCount = 1) Then iToEdit = 0
        If (iToEdit = -1) Then
            strError = "No Citation selected for editing."
            MessageBox.Show(strError, "Selection error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        If (iToEdit < iCount) Then
            tmpCite = begGeol.GCiteFetch(iToEdit + 1)
            tmpLWCb = begGeol.GCbFetchLWC(iToEdit + 1)
            tmpLWC = begGeol.GCiteFetchLWC(iToEdit + 1)
        Else
            MessageBox.Show("Selected index out of bounds for editing", "Selection error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        Dim frmGCite As New frmCiteInfo(tmpCite, tmpLWC, tmpLWCb, iTime)
        frmGCite.ShowDialog()

        If (frmGCite.getUpdated() = False) Then  'main citation was not edited
        Else
            tmpCite = frmGCite.getNewCite()     'get updated citation
            begGeol.GCiteUpdate(tmpCite, iToEdit + 1)  'put it into local collection
            strCite = Microsoft.VisualBasic.Left(tmpCite.Author, 25) & "   " & Microsoft.VisualBasic.Left(tmpCite.Title, 25)
            lboxGCite.Items.Insert(iToEdit, strCite)  'updating the list box
            lboxGCite.Items.RemoveAt(iToEdit + 1)
        End If

        tmpLWCb = frmGCite.getLWC()
        If (tmpLWCb = True) Then
            tmpLWC = frmGCite.getNewLWC()     'get updated larger work citation
            begGeol.GLWCUpdate(tmpLWCb, tmpLWC, iCount)  'put it into local collection
        End If

        btnEdit.Enabled = False
        btnDelete.Enabled = False
    End Sub

    Private Sub btnEdit2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit2.Click
        Dim tmpCite As New CiteInfo  'primary citation
        Dim tmpCiteUp As Boolean = False  'indicates whether primary citation has been edited
        Dim tmpLWC As New CiteInfo        'Larger Work Citation
        Dim tmpLWCb As Boolean = False    'indicates whether LWC is present
        Dim tmpLWCup As Boolean = False   'indicates whether LWC has been edited
        Dim strCite As String = ""
        Dim iCount As Integer = 0
        Dim iToEdit As Integer = 0
        Dim strError As String = ""
        Dim iTime As Integer = frmMetaMain.intTimeStyle

        iToEdit = lboxGCite2.SelectedIndex
        iCount = endGeol.GCiteCount

        If (iCount = 0) Then 'Edit button pressed by mistake -- no entries to edit
            strError = "There are no Geologic Citations to edit."
            MessageBox.Show(strError, "Selection error", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If

        If (iCount = 1) Then iToEdit = 0
        If (iToEdit = -1) Then
            strError = "No Citation selected for editing."
            MessageBox.Show(strError, "Selection error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        If (iToEdit < iCount) Then
            tmpCite = endGeol.GCiteFetch(iToEdit + 1)
            tmpLWCb = endGeol.GCbFetchLWC(iToEdit + 1)
            tmpLWC = endGeol.GCiteFetchLWC(iToEdit + 1)
        Else
            MessageBox.Show("Selected index out of bounds for editing", "Selection error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        Dim frmGCite As New frmCiteInfo(tmpCite, tmpLWC, tmpLWCb, iTime)
        frmGCite.ShowDialog()

        If (frmGCite.getUpdated() = False) Then  'main citation was not edited
        Else
            tmpCite = frmGCite.getNewCite()     'get updated citation
            endGeol.GCiteUpdate(tmpCite, iToEdit + 1)  'put it into local collection
            strCite = Microsoft.VisualBasic.Left(tmpCite.Author, 25) & "   " & Microsoft.VisualBasic.Left(tmpCite.Title, 25)
            lboxGCite2.Items.Insert(iToEdit, strCite)  'updating the list box
            lboxGCite2.Items.RemoveAt(iToEdit + 1)
        End If

        tmpLWCb = frmGCite.getLWC()
        If (tmpLWCb = True) Then
            tmpLWC = frmGCite.getNewLWC()     'get updated larger work citation
            endGeol.GLWCUpdate(tmpLWCb, tmpLWC, iCount)  'put it into local collection
        End If

        btnEdit2.Enabled = False
        btnDelete2.Enabled = False
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim iCount As Integer = begGeol.GCiteCount
        Dim iToRemove As Integer = lboxGCite.SelectedIndex  'zero-based index
        If (iToRemove = -1) Then
            Dim sDelError As String = "No citation selected for deletion"
            MessageBox.Show(sDelError, "Selection error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        begGeol.GCiteRemove(iToRemove + 1)
        lboxGCite.Items.RemoveAt(iToRemove)
        btnEdit.Enabled = False
        btnDelete.Enabled = False
    End Sub

    Private Sub btnDelete2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete2.Click
        Dim iCount As Integer = endGeol.GCiteCount
        Dim iToRemove As Integer = lboxGCite2.SelectedIndex 'zero-based index
        If (iToRemove = -1) Then
            Dim sDelError As String = "One of citations must be selected for Delete to function"
            MessageBox.Show(sDelError, "Selection error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        endGeol.GCiteRemove(iToRemove + 1)
        lboxGCite2.Items.RemoveAt(iToRemove)
        btnEdit2.Enabled = False
        btnDelete2.Enabled = False
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Dim bTest As Boolean = False
        'bTest is used to determine whether the required fields have nontrivial content
        'if no content, then bTest=False; if both fields have content, then bTest=True
        Dim sMalTest As String
        btnOK1_update(bTest)
        If (bTest = True) Then
            bChange = True
            Me.Close()
        Else
            sMalTest = "The Geologic Scale or the Geologic Age Estimate is missing."
            MessageBox.Show(sMalTest, "Geologic Age error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
    End Sub

    Private Sub btnOK1_update(ByRef bTest As Boolean)
        Dim sTemp1 As String = ""
        Dim iTemp1 As Integer = 0

        iTemp1 = cboxScale.SelectedIndex  'update Geologic Time Scale
        If (iTemp1 = -1) Then
            sTemp1 = cboxScale.Text.Trim
            begGeol.TimeScale = sTemp1
        Else
            begGeol.TimeScale = CType(cboxScale.SelectedItem, String)
        End If

        'update Geologic Age Estimate, Uncertainty, and Explanation
        txtEst.Text = txtEst.Text.Trim
        begGeol.Estim = txtEst.Text
        begGeol.Uncert = txtUncert.Text
        begGeol.Explain = txtExplain.Text

        bTest = False
        'if both required fields contain non-blank characters, then proceed
        If (Len(begGeol.TimeScale) > 0 And Len(txtEst.Text) > 0) Then bTest = True

    End Sub

    Private Sub btnOK2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK2.Click
        Dim bTest As Boolean = False
        'bTest is used to determine whether the required fields have nontrivial content
        'if no content, then bTest=False; if both fields have content, then bTest=True
        Dim sMalTest As String
        Dim sTemp1 As String = ""
        Dim iTemp1 As Integer = 0

        btnOK1_update(bTest)
        If (bTest = True) Then
        Else
            sMalTest = "The beginning Geologic Scale or the beginning Geologic Age Estimate is missing."
            MessageBox.Show(sMalTest, "Geologic Age error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        iTemp1 = cboxScale2.SelectedIndex  'update Geologic Time Scale
        If (iTemp1 = -1) Then
            sTemp1 = cboxScale2.Text.Trim
            endGeol.TimeScale = sTemp1
        Else
            endGeol.TimeScale = CType(cboxScale2.SelectedItem, String)
        End If

        'update Geologic Age Estimate, Uncertainty, and Explanation
        txtEst2.Text = txtEst2.Text.Trim
        endGeol.Estim = txtEst2.Text
        endGeol.Uncert = txtUncert2.Text
        endGeol.Explain = txtExplain2.Text

        bTest = False
        'if both required ending fields contain non-blank characters, then proceed
        If (Len(endGeol.TimeScale) > 0 And Len(txtEst2.Text) > 0) Then bTest = True

        If (bTest = True) Then
            bChange = True
            Me.Close()
        Else
            sMalTest = "The ending Geologic Scale or the ending Geologic Age Estimate is missing."
            MessageBox.Show(sMalTest, "Geologic Age error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click, btnCancel2.Click
        bChange = False
        Me.Close()
    End Sub

    Private Sub cboxScale_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboxScale.SelectedIndexChanged
        valiadteOK1()
        valiadteOK2()
    End Sub

    Private Sub txtEst_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEst.TextChanged
        valiadteOK1()
        valiadteOK2()
    End Sub

    Private Sub cboxScale2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboxScale2.SelectedIndexChanged
        valiadteOK2()
    End Sub

    Private Sub txtEst2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEst2.TextChanged
        valiadteOK2()
    End Sub
    Private Sub valiadteOK1()
        If cboxScale.SelectedIndex = -1 Or txtEst.Text.Trim() = "" Then btnOK.Enabled = False Else btnOK.Enabled = True
    End Sub
    Private Sub valiadteOK2()
        If cboxScale.SelectedIndex = -1 Or txtEst.Text.Trim() = "" Or cboxScale2.SelectedIndex = -1 Or txtEst2.Text.Trim() = "" Then btnOK2.Enabled = False Else btnOK2.Enabled = True
    End Sub

    Private Sub lboxGCite_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lboxGCite.SelectedIndexChanged
        If lboxGCite.SelectedItems.Count() > 0 Then
            btnEdit.Enabled = True
            btnDelete.Enabled = True
        End If
    End Sub

    Private Sub lboxGCite2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lboxGCite2.SelectedIndexChanged
        If lboxGCite2.SelectedItems.Count() > 0 Then
            btnEdit2.Enabled = True
            btnDelete2.Enabled = True
        End If
    End Sub

    Public Function getChanged() As Boolean
        Return bChange
    End Function
    Public Function getBegGeol() As GeolAge
        Return begGeol
    End Function
    Public Function getEndGeol() As GeolAge
        Return endGeol
    End Function

    Private Sub button_example_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_example.Click
        Dim helpForm As dialog_help = New dialog_help("GeolAge")
        helpForm.ShowDialog()
    End Sub
End Class
